#Set Working Directory

setwd("...")
potholes<-read.csv("141118_Geocoded_Potholes_Final.csv")

table(potholes$Problem_Code_Desc_)/sum(table(potholes$Problem_Code_Desc_))*100